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i Facility: VAX=11 CONVERT 

: Abstract: DCL Utility which calls the CONVERT sharable image 

! Environment: 


VAX/VMS Operating System 


v03-001 koT0018 Keith me: geoMar-1982 
Fix the display ~ (Pu time (Use quadword mult.) 


' 

! Author: Keith B Thompson Creation date: July-1980 

i 

: Modified by: 

} v03-003 KBT0369 Keith 8. Thompson 19-0¢ t-1982 
; Remove all ref. to control flags and use the flags 
parameters on the conv$ calls 

‘ v03-002 KBT0036 Keith Thompson 31-Mar-1982 
: Change the ref. to fdl$ab ait — fdl$al block and 
} change the ref. to conv$ab_f 

' 

i] 

‘ 
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-0-742 
TER: (CONV. SRCJCONVDCL.B32; — 


2 
—83 VAX=11 CONVERT 15-Sep-1964 $337 55 VAX-11 Bliss-32 V4.0 


742 3 
v04 -Sep- :15:50 DISKSVMSMASTER: CCONV. SRCICONVDCL. B32" r (3) 
z & 1 
. @ 1 LIBRARY ‘SYS$LIB —8 ee L32'; 
; 664 : 1 REQUIRE ‘SRC$:CON 
3; & : REQUIRE ‘SRCS$: EONVDER 's 
3 ef 635 ; Structure for array of dynamic character string descriptors 
3 9 461 1 STRUCTURE 
; 0 * 1 DYN_STR “tN VECTOR C 1, 0, P, S. Es NJ = 
; 23 463 1 ® DSCSK_D_BLN 4 
: g 8 ( DYN_STRIDESC_VECTOR + I * DSCSK_D_BLN ) + O )< P,S,E >; 
30 6 466 1 
Te 467 1 ! Fun with macros 
; HAN 468 1! 
Bie i 469 1 MACRO 
; 470 1 
3 79 471 1 ! Define a macro to initialize an element of a dyn. stre desc_vector. 
: 80 0472 1 ! This macro is passed the number of elements to initialize. The macro 
: 4 84 makes no explicit assumption about the current descriptor format. 
‘= 0475 1 init -DSD_VECTOR ( 1 ) () = 1 ( ' . - 1, DSCSB_DTYPE] = DSCS$K_DTYPE_T 
; 84 m 0476 1 - 1, DSCSB-CLASS] = DSCSK_CLASS~ “p’ 
3; 8 0477 1 tir { t I ) - 1 GT ) 
3 3 th : ZTHEN , INIT_DSD_VECTOR ( ( 1) = 1) SFI &, 
; 3 peo : : Define shorthand for a single initialized dynamic string desc 
; 90 m 0482 1 bYN.. STR_DESC = BLOCK C DSCS$K_D_BLN,BYTE J 
3 21 4104831 PRESET( [ OSC$8 CLASS J] = DSCSK_CLASS_D, 
; gees ; DSC$B_DTYPE J] = DSCSK_DTYPE_T ) 2%; 
3; (96 0486 1 EXTERNAL ROUTINE 
; 5 0487 1 CONVSPASS_FILES : ADDRESSING_MODE( GENERAL ), 
; 0488 1 CONVSPASS~ OPTIONS : ADDRESSING_MODE( GENERAL ), 
5; wT 0489 1 CONVSCONVERT : ADDRESSING _MODE( GENERAL ), 
:; #98 —*8 1 CLISGET_VALUE ADDRESSING_MODE( GENERAL ), 
3 299 491 1 CLI RESENT : ADDRESSING_MODE( GENERAL ), 
; 100 2696 1 LIBSINIT_TIMER : ADDRESSING_MODE( GENERAL ), 
3s 101 04935 1 LIBSSTAT_TIMER : ADDRESSING _MODE( GENERAL ), 
3 3 0494 1 LIBSSUBX™ : ADDRESSING_MODE( GENERAL ), 
; 10 0495 1 LIBSPUT “pytput : ADDRESSING_MODE( GENERAL ), 
: 104 0496 1 OTSSCVT_TI_L : ADDRESSING_MODE( GENERAL ), 
: 105 497 1 OTSSCVT_TO_L : ADDRESSING_MODE( GENERAL ), 
; 18 rps : OTSSCVT_TZ_L : ADDRESSING-MODE( GENERAL ); 
; 108 0360 1 EXTERNAL LIT * 
3 109 501 1 CONV TALEXC, 
: 110 0502 1 CONVS_ ithe KEY, 
: 111 0505 1 CONV$_ILL— “VALUE; 
; 9 504 1 
—W 505 1 FORWARD ROUTINE 
3 116 206 1 MULQ : NOVALUE; 
3 6115 507 1 
3 116 208 1 LITERAL : é 
ey 509 1 MAX_INFILES = 19. ! Max number of input files 
; 118 0510 1 ASCTI_D = 6 ; 


[appears pacar aperumenreriie 
| Souvepse VAK=11 CONVERT 


3 11 11 3014 
He ie } — “PERCENT = 
3 = 
: 18§ 1$ 1 OUN 
: 126 16 IN_DESC 
: (125 7 1 
i 196 18 1 OUT_DESC : 
Pa 3 FDL_DESC 
: 4 § 1 1 ⸗ 
i 13 é EXC_DESC 
; 1 é 5 . 4 
; : ; 5 ' ! FAO Processing 
: 135 03 5 1 8 _BUFFER 
2 % 528 1 0-DESC 
5 0529 #1 
: 136 bay 
; 140 O53¢ | PuT_DESC 
BEY 
: 128 0535 1 
3 146 05 1 
; 1a 341 
129 0539 1 i Option Block NOT 
Bee 6 ee 
3 130 Ose | OPTION_BLOCK 
; 136 Bee : Statistics Block 
; 134 0546 1 STATS_BLOCK 
: 156 0548 1 ' Flags t d 
43 0549 1 Pipes iensccnc 
: 158 0550 1 FLAGS 
: 159 0551 1 
: 160 558 1 TEMP_DESC 
wo Bay 
; 168 0355 TIMER_BLK, 
: 165 0357 1 ELP_TIME 
he oe SOR 
: 168 560 1 ELP_TIM_BUF 
; 169 361 CPU~TIM~BUF 
if #] peas 
; 138 565 1 - 
: 17% 566 1 ONE 
: 175 0567 1 TWO 
| 
l 


Convert call argument Blocks 


: VECTOR C 20,LONG ] INITIAL( 18,REP 19 OF (0)), 


: LONG INITIAL( CONVSM_SIGNAL ), 


: DES : — work descriptor 
PRESETY Coscs$B_. clts DSCS$K_CLASS_D ), 
: VECTOR f 348 
: VECTOR LONG J, 
: VECTOR C 16,BYTE }: 
: VECTOR C 16,BYTE J, 
ESC_BLK INITIAL ( 16,ELP_TIM_BUF ), 
ESC_BLK INITIAL ( 16,CPU_TIM_BUF ), 
NITIAL(1), 
NITIAL(2), 


| 
— 4 23:38: VAX-11 Bliss-32 V4.0-742 4 
— 808-1382 93:39:33 DISKSVMSMASTER: CCONV. SRCICONVOCL.. B32. 79° (3) 
79, ; 
“ ' ore 
3; tis x 
: DYN_STR_DESC_VECTOR C MAX_INFILES J] ! of , inoue filenames 
PRESET™( INIT_DSD_VECTOR( MAK. INF ILE 
DESC_BLK ! Susput file Te 
PRESET( C DSCSB_CLASS J] = DSCSK_CLASS_D ), 
DESC_BLK ' Fdl file —53 
PRESET( C DSCSB_CLASS J] = DSCSK_CLA 
DESC_BLK ' Exception file descriptor 
PRESET( C OSCSB_CLASS ] = DSCSK_CLASS - 
: 4 Fh c 132,BYTE J, ' FAO Buffer 
: DES ' FAO REC Ase b. Block 
PRESET( DSC$B_CLASS J] = oscsk.c 
DSC SW_LE LENGTH J) = 132,~ 
DSCSA-POINTER ] = FAO_BUFFER ), 
: DESC_BLK ! Put_o mintte Dest. Block 
PRESET( DSCSB_CLASS J] = vee 
DSCS$W_LENGTH J] = 1 oy 
DSCSA_ POINTER J] = FAO_BUFFER ), 


E: The last option is optional and will be 
determined at a latter date 


— 


3 
C L VAK=11 CONVERT 1$-s -19 :38:55 VAK=11 Bliss-32 V4.0-742 5 
88 ~ * $3; + 3 DISKSVM MASTER: : (CONV. SRCICONVDCL. B32; Page (3) 


14-Sep-19 
3 176 3 1 THREE INITIAL(3), 
4 831 FIVE INITIALS), 
: 178 Ay ; ' 
; : 0 4 ! PROC _BLK : VECTOR C 5,LONG J; 
. § 7% 1 BIND 
[. 2 i 75 «1 BUFF _10 = PROC_BLK ¢ : LONG, 
°F 7 1 DIRE-10 = PROC “BLK : LONG, 
3 186 — PG_FALT = PROC"BLK C 4 J] : LONG, 
: 187 ? ! Opuput stats descriptors 
; 189 3 ee STATS_DESC_BLOCK = UPLIT( 
: 191 5 i 1 DESCRIPTOR ( * '/ CONVERT Statistics’ ), 
: 136 5 1 DESCRIPTOR( ‘Number of Files Processed: '6UL" 
: 19 585 1 SCR ( "Total Records Processed: ‘ BUL | — 1/0 Count: ! !8uL' ), 
: 194 8 1 DESCRIPTOR( ‘Total Exception Records: 'BUL!“Direct 1/0 Count: ! iBuL' ), 
: «195 5 1 DESCRIPTOR( ‘Total Valid Records: SUL: =Page Faults: 1! '80L" ), 
3 136 B2 8 1 DESCRIPTOR( ‘Elapsed T AS! _cpu T AS’ ) 
; 19 589 1 
; 198 R230 1 ) VECTOR 
; 199 591 1 
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— Nain Routine — — 


1 ZSBTTL ‘Main Routine’ 
ROUTINE START = 


' 
Functional Description: 


Main convert processing routine. This routine, called by DCL. 
in turn calls the convert sharable image. 


Calling Sequence: 
DCL Command 
Input Parameters: 


8 


QEARANLSSSLESEAN 


See DCL command syntax 


282 


wo IN. AIAITIPUPIMIPININININID 2 2 OO Ot OO 
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Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


Routine Value: 
SSS$_NORMAL or error code 
Routines Called: 


CLISGET VALUE 
CLISPRESENT 
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36 LIBSINIT_TIMER 
39 CONVSPASS_FILES 
40 CONVSPASS OPTIONS 
8 CONVSCONVERT 

<g Side Effects: 

44 ? 

i 

47 3 

“8 3078 BEGIN 
an 

5 e 

3 bec 

54 645 STATUS 

55 6 STATISTICS, 

26 064 LENGTH; 

5 0648 


—— — — — — — — — — — — — — — — — 


3 

vou-000" Main Routine ——— — —— 
Stort the timer | 
LIBSINIT_TIMER( TIMER_BLK ); 

Get some needed values from the command Line 

OPTION_BLOCK C 17 J = CLISGET_VALUE( DESCRIPTOR('FDL"),FDL_DESC ); 

Get the exception file name 

OPTION_BLOCK C 18 J) = CLISGET_VALUE( DESCRIPTOR('EXCEPTION') ,EXC_DESC ); 


REELS Se 
sepeesessessese 


9 Get the output file name 

— CLISGET_VALUE ( DESCRIPTOR(*OUTFILE*),OUT_DESC ); 

Le 9 Get the first input file name 

2 Ose? CLISGET_VALUE ( DESCRIPTOR("INFILE*),IN_DESC C 0,DSC$W_LENGTH J ); 
8 +544 Pass the files to convert 

80 P 0671 RET_ON_ERROR( CONVSPASS_FILES( IN_DESC C 0,DSC$W_LENGTH J, ! 1st input file 
281 P 067 OUT_DESC, ' Quput file 

soe P 067 FDOL_DESC, : FDL file 
28 P 0674 EXC_DESC ! Exception file 
284 0675 FLAGS ) 5; i Flags 

a6 834 Get the rest of the input file names if any 

88 0679 INCR I FROM 1 TO ( MAX_INFILES - 1 ) BY 1 

89 0680 DO 


ae 
So 
o 
Co Co 
wr 


If we got a file then pas it to convert 
if CLISGET_VALUE( DESCRIPTOR(*INFILE'),IN_DESC C .1,DSC$W_LENGTH J] ) 
RET_ON_ERROR( CONVSPASS_FILES( IN_DESC C .1,DSCSW_LENGTH J,FLAGS ) ) 
EXITLOOP; 
: Get the command options 


BPSIVSSSSES 


2388888 
SAPANLSSSS = 
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! The statistics option is not passed to convert 


83 STATISTICS = CLISPRESENT( DESCRIPTOR( ‘STATISTICS® ) ); 
0696 Set Option Flags 

98 OPTION_BLOCK C 1 = CLISPRESENT( DESCRIPTOR('CREATE') ); 
0699 OPTION_BLOCK = CLISPRESENT( DESCRIPTOR(* SHARE’) ); 
0700 OPT ION_BLOCK = CLISPRESENT( DESCRIPTOR('FAST LOAD’) ); 
0701 OPTION_BLOCK [ 4 = CLISPRESENT( DESCRIPTOR('MERGE') ); 
44 OPTION_BLOCK [ 5 = CLISPRESENT( DESCRIPTOR('APPEND') J; 
070 OPTION_BLOCK [ 6 = CLISPRESENT( DESCRIPTOR('SORT*) ): 
0704 OPTION_BLOCK [ 11 } = CLISPRESENT( DESCRIPTOR(* TRUNCATE") ); 
0705 OPTION_BLOCK [ 12 J] = CLISPRESENT( DESCRIPTOR(*EXIT") ); 


— ⸗ ¶ ñ —ñ — —— — — 


if CLISGET_VALUE( DESCRIPTOR(*WORK_FILES*),TEMP_DESC ) 
BEGIN 
LOCAL IVALUE; 
Convert the value parameter 
if aot OTSSCVT_TI_L( TEMP_DESC,IVALUE ) 
RETURN CONVS_ILL_VALUE 
OPTION_BLOCK [ 7 ) = .IVALUE 


w 


3 
iC L VAK=11 CONVERT bese -1984 23:38: VAX-11 Bliss-32 V4.0-742 Pa 8 
—E Main Routine 1228 08=138e 93:78:23 DISKSVMSMASTER: CONV. SRCICONVDCL.B32:1> (4) 
; 315 7 OPTION_BLOCK [ 13 ] = CLISPRESENT( DESCRIPTOR('FIXED CONTROL’) ); 
1 7 OPTION BLOCK {| 14 J = CLISPRESENT( DESCRIPTOR('FILL_BUCKETS") ); 
1 7 OPTION_BLOCK 15 = CLISPRESENT( Bearer ttoe) case CHECKS) ); 
18 8 OPTION_BLOCK [ 16 J = CLISPRESENT( DESCRIPTOR(*WRITE_CHECK") 5; 
0 711 ! Check the KEY qualifier 
1 ar ' 
§ 71 
714 
4 715 
5 rig 
— 71 
at 
8 071 
9 0720 
0721 RETURN CONVS_ILL_KEY 
1 07 ; ELS 
$ 7 OPTION_BLOCK C 8 J = .IVALUE 
z : ND; 
5 4 — Check the WORK_FILES qualifier 
3 0728 
38 g 
0 
2 


- 
OOONOUS WN Oo” 


ELSE 
: If not specified then the default work files is two (Like SORT) 
OPTION_BLOCK C 7 J = 2; 
: Check the PROLOGUE qualifier 
aa aarti DESCRIPTOR( *PROLOGUE*® ),TEMP_DESC ) 
BEGIN 
LOCAL IVALUE; 
: Convert the value parameter 
wat OTSSCVT_TI_L( TEMP_DESC,IVALUE ) 
RETURN CONVS_ILL_VALUE; 
! If everything is ok then stuff the value and make the option block 


PAAAADMAMIIY 
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if CLISGET_VALUE ( DESCRIPTOR('KEY"), TEMP_DESC ) 
BEGIN 
LOCAL IVALUE; 
IF NOT OTSSCVT_TI_L( TEMP_DESC,IVALUE ) 
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3 
L VAK=-11 CONVERT EE, “13 4 23:38:55 X-11 Bliss-32 V 742 . 
88 Main Routine ja-tep- t $3: #8: 33 SISKSVMGMAS TER. CUO. SRE ICONVOCL.832: Paseo, 4) 
3 763 ! Longer 

3 764 : ° 

; 765 OPTION_BLOCK [ 0) = 19; 

; re) OPTION BLOCK C 19 ] = .IVALUE 

: , ; END; 

5 —3— Check the PAD qualifier NOTE: do this last since it messes with temp_desc 
3 ot? IF OPTION BLOCK C 9 J = CLISGET_VALUE( DESCRIPTOR('PAD'),TEMP_DESC ) 

; 3 BEGIN 

; O77 LOCAL PAD_C : REF VECTOR C ,BYTE 2]; 

; 0779 PAS_C = .TEMP_DESC C DSCSA_POINTER ]; 

; 0781 ! The syntax of the pad cheracter is: a = Ascii character except ‘%' 
5 33 ZDn - Decimal number 

3 078 ! Z0n - Octal number 

3 Bree } %Xn = Hex number 

; 0786 i If the first character is a ay ee sign '%" then translate the 

3 34-44 numeric value depending on the base 

; 0789 if .PAD_C C 0 J EQLU ASCII_PERCENT 

: 343 THEN 

: 791 4&4 BEGIN 

3 —3 4 

b4 0793 4 OCAL 

3 0794 4 STATUS, 

3 0795 4 IVALUE; 

3 0796 4 

3 8 : Strip off the ‘%c"* from the descriptor 

; 0799 4 iene DESC DSCSW_LENGTH ] = .TEMP_DESC C DSC$W_LENGTH J = 2; 

3 Bane 2 TEMP DESC DSCSA_ POINTER ] = . TEMP DESC C DSCSA_ POINTER ) + 2; 
3 411 0802 4 ' Convert depending on the base 

3 ee 0803 4 ! 

s 61 08046 5 STATUS = ( SELECTONEU .PAD_C C 1 J OF 

: 6146 0805 SET 

3 M tt C ASCII_D J : OTSSCVT_TI_L( TEMP_DESC,IVALUE ); 

; ‘i? 0808 C ASCII_O } =: OTSSCVT_TO_L( TEMP_DESC,IVALUE ); 

; 419 0810 C ASCII_X ]  : OTSSCVT_TZ_L( TEMP_DESC,IVALUE ); 

: 421 OB1¢ 5 { OTHERWISE ] : 0; 

; 4 ¢ 0815 4 TES ); 

56 oie 4 

3; 624 815 4 ! Check on any problem 

; 425 31 4 : 

; 426 st 4 If NOT .STATUS 

3 $27 818 4 

3 428 0819 4 RETURN CONV$_ILL_VALUE 


ee 
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Convert to delta time 
SUBM( 2,ELP_TIME,ZERO_Q,ELP_TIME ); 
' Convert internal times to ASCII 


H 3 
VAK=11 CONVERT 15-Sep-1984 23:38:55 
Main Routine 122808- 1386 $3:79:23 
0 4 ELSE 
‘ OPTION BLOCK { 10 ) = .IVALUE 
4 END 
B24 3 ELSE 
8 5 2 BEGIN 
8 ? } This better be a single character 
08 4 ‘ if .TEMP_DESC C DSC$W_LENGTH ] GTRU 1 
o8 1 é RETURN CONVS_ILL_VALUE; 
08 § 4 OPTION BLOCK C 10 ] = .PAD.C C0] 
0835 4 END 
88 END; 
083 
0838 : Initalize CONVERT 
0840 RET_ON_ERROR( CONVSPASS_OPTIONS ( OPTION_BLOCK,FLAGS ) ); 
83 Do the conversion 
0844 if NOT ( STATUS = CONVSCONVERT ( STATS_BLOCK,FLAGS ) ) 
88 THEN 
84 If there was an error and it wasn't conv$_fatalexc then exit 
0849 IF .STATUS NEQU CONVS_FATALEXC 
0851 RETURN .STATUS; 
0838 ; If we want and sucess then output some stats 
0855 if .STATISTICS 
p28 THEN 
085 BEGIN 
0858 
0859 
0860 ZERO_O : VECTOR C 2, LONG INITIAL( 0,0 ), 
0861 TEMP-TIME =: VECTGR 
88 MUL 100K : VECTOR £ 2. CONG 
Obed : Get Preformance Stats 
08 LIBSSTAT_TIMER( ONE, ELP_TIME TIMER_BLK ); 
086 LIBSSTAT-TIMER( TWO, TEMP_TIME, TIMERTBLK ): 
868 LIBSSTAT-TIMER( THREE, BUFF IO, TIMERTBLK ); 
86 LIBSSTAT-TIMER( FOUR, DIRE-10, TIMER-BLK ); 
9870 LIBSSTAT-TIMER( FIVE, PG_FALT, TIMER“BLK ); 
087 


-0-742 
TER: CCONV. SRCICONVOCL .832: 1 


i 
“INITIAL( 100000,0 ):! of times 
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VAK-11 — 742 Pa 
in DISKSVMSMASTER:CCON V-SREICONVOCL.B32" 1 
77 

& a gascTIM( ices = 0, 

P 087 TIMBUF = ELP_DESC, 

& TIMADR = BUD TIME. 

é 1 CVTFLG = 0 ); 

: ! The CPU time is given in 10msec ticks so we need to convert it to 

See ; system delta time 
O8se Convert to 10nsec ticks 
088s MULQ( TEMP_TIME ,MUL100K,CPU_TIME ); 

Baas Convert to delta time 
+944 SUBM( 2,CPU_TIME,ZERO_Q,CPU_TIME ); 

—** Conver to ascii 

0895 

P 089 SASCTIMC rien = 0 

P 089 TIMBUF = CPU_DESC, 

P 0898 TIMADR = CPU-TIME, 

0899 CVTFLG = 0 ); 
0900 

442 INCR I FROM O TO 4 BY 1 
0903 4 BEGIN 

0904 4 

P 0905 4 SFAO( .STATS_DESC BLOCK C .1 J, 

P 0906 4 CENGTA 

P0907 4 FAO_DESC, 

P 0908 4 7143 BLOCK S ok de 
0909 4 -PROC_BLK C .1 J); 
0910 4 
30 PUT_DESC C DSCSW_LENGTH J = .LENGTH; 
O38 4 LIBSPUT_OUTPUT( PUT_DESC ) 

0914 4 

0915 END; 

O96 

84 klospeo Time and CPU Time 

P 0919 $F ant -STATS_DESC BLOCK FF 

b 3330 LENGTH 

P 0921 FAQ. Desc, 

P 09 ; ELP_DESC, 

8 CPU_DESC ); 

03 5 PUT_DESC C DSCSW_LENGTH ] = .LENGTH; 
8 LIBSPUT_OUTPUT( PUT_DESC ) 

st 

9 

930 

1 RETURN .STATUS 
338 
9 
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Comvepet VAX=11 CONVERT 13-Sep-19 4 $3: 38:33 =i Bliss-32 V4.0-7 


x p 
Main Routine 14-Sep-1984 SK * 


42 12 
MSMASTER: CCONV.SRCICONVDCL .B32; (4) 


-TITLE —366 VAX=11 CONVERT 
IDENT \v04-000\ 


-PSECT S$PLI7$,NOWRT ,NOEXE,2 


61 74 53 20 54 52 45 56 36 4F 43 90 3 21 4 0000 P.AAC: .ASCII \ !/ CONVERT Statistics\ 
73 63 69 74 73 69 74 Q000F 
84 -BLKB 
00990000" O01 — SODRESS H AAC : 
73 65 6C 69 46 20 66 6F 72 65 62 4 P.AAE: ASCII \Number of Files Processed: '6UL\ : 
20 $3 20 $ 3A 65 73 39 og 63 6F re 3 26 008 $ 
4c § 6 21 000 3 3 
88 -BLKB 
838 0044 P.AAD: .LONG 4 : 
0000000' —8* ADDRESS P.AAE 3 
8 0 73 72 6F 63 65 $¢ 61 74 6F 54 QO004C P.AAG: .ASCII \Total Records Processed: 'BUL! _Buffer\ ; 
1 20 20 20 $9 A 64 6 65 63 6F ¢ 8 
65 66 66 75 42 SF 21 4C 5 8*8 
21 20 34 74 6E 75 6F 43 20 GF 2F 49 20 64 5 00074 ASCII \ed 1/0 Count: !_!8UL\ $ 
4c 55 38 21 SF 00083 3 
0000003C 00088 P.AAF: .LONG 60 $ 
00000000* 0008C ADDRESS P.AAG 3 
6— 6F 69 74 70 65 63 78 45 4 6C 61 74 of 54 4 844 P.AAI: .ASCII \Total Exception Records: 'BUL! _Direct\ ; 
38 21 20 20 20 20 3A 73 64 72 6F 63 65 52 0 009F 3 
4 63 65 72 69 446 SF $) 4C 55 OOOAE : 
21 SF 21 20 3A 74 6E€ 75 6F 43 20 4 F 49 $3 00088 ASCII \ 1/0 Count: !_!8UL\ 3 
4c 55 38 000C7 ; 
OOOCA -BLKB 
90000034 OO0CC P.AAH: .LONG 8 3 
00000000" 00000 ADDRESS P.AAI : 3 
63 65 52 20 64 69 6C 61 56 20 gc 61 74 gf 54 00004 P.AAK: .ASCII \Total Valid Records: 'BUL!_Page F\ ; 
38 21 20 20 20 20 20 <0 20 20 3A 73 64 72 6F OQ00E3 F 
46 9 65 67 61 50 SF 21 4 55 O00F2 3 
4¢ 55 38 21 SF 21 SF 21 20 3A 73 74 6C 75 61 OOODFC eASCII \aults: !_!_!8UL\ 3 
O81 08 -BLKB 1 
00000037 0010C P.AAJ: .LONG 55 3 
sat sae 00110 ADDRESS P.AAK : 3 
20 20 3A 65 6D 69 54 29 65 73 70 61 6C 4 —813 P.AAM: ASCII \Elapsed Time: 'AS!_CPU Time: s 3 
4 20 55 50 43 SF 21 53 41 21 20 20 20 20 20 00123 3 
20 20 20 20 20 3A 65 6D 69 00132 3 
3 41 1 0 g1 §— eASCII \ !AS\ i 
0002C 140 P.AAL: .LONG 44 3 
0000000" 00144 ADDRESS P.AAM 3 
00000000" 00000000* 00000000° 00000000' 00000000‘ 00000000' ‘bbe P.AAA: .ADDRESS P.AAB, P.AAD, P.AAF, P.AAH, P.AAJ, P.AAL ; 
4C 44 46 + P.AAO: .ASCII \FDL\ 3 
Bie -BLKB 1 
9000000 164 P.AAN: .LONG 3 3 
93000 * 00168 -ADDRESS P.AAO ; 
4E 4F 49 54 50 45 43 4 a1 P.AAQ: tt \EXCEPTION\ bs 
8 $0008 914 P.AAP: .LONG 3 
0 90 0* 0017C ADDRESS P.AAQ : 
45 4C 49 46 564 GF 0180 P.AAS: .ASCII \OUTFILE\ : 
0187 -BLKB 1 


/VOo~000- 


4C 4F 52 


53 54 


48 
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53 43 49 54 


Ae 


4E 


48 


43 


45 


41 


45 


4F 


43 


45 


48 


4F 


54 


43 


55 


48 


43 


45 


45 


53 


45 


4C 


64 


41 


5f 


42 


43 


5f 


4C 


4C 


4G 


34 


45 


5F 


45 


4E 


43 


64 


5f 


5f 


45 


49 


49 


54 


41 


52 


54 


47 


45 


54 


4E 


54 


45 


4C 


4s 


54 


§ 3 
15-Sep- 
14-Sep- 
000007 188 P.AAR: 
SHEET. gure 
46 4E & : P.AAU: 
44444 198 P.AAT: 
000C000' —3 
46 4E 4 1A0 P.AAW: 
is 
888 1A8 P.AAV: 
a) aa . 3 
41 54 O16A P.AAY: 
90000004 1BC P.AAX: 
—* 01C0 
5 4 01C4 P.ABA: 
QO1CA 
00000006 OO1CC P.AAZ: 
oe ae 4 0100 
41 4 0104 P.ABC: 
33189 
00000005 Q01DC P.ABB: 
00000000° 001E0 
53 41 46 OO1E4 P.ABE: 
Bates 
00000009 0O01FO P.ABD: 
000 ww 4 001F4 
52 4 001F8 P.ABG: 
8 
00000005 00200 P.ABF 
00000000° 00204 
50 50 41 80 P.ABI 
020E 
00000006 —831 P.ABH 
sae t pet's 9 0214 
52 4F 0218 P.ABK 
00000004 0021C P.ABJ 
sa 0000° 88 3? 
0224 P.ABM: 
00000008 0022C P.ABL: 
et ter 0 
49 4 0234 P.ABO: 
0000004 00 P.ABN: 
0000000° 0023C¢ 
58 49 46 3 40 P.ABQ 
0024D 
00000000 00250 P.ABP 
oopgoony" 54 
4C 49 46 58 P.ABS 
Q000000C 00264 P.ABR 
0009009¢" 0268 
1 3 of P. ABU: 
«990090 0 78 P.ABT 
330" S gO P.ABy 
00000008 0028C P.ABV 


1986 42:48:30 


“ADDRESS P.AAW 
“ASCII. \STATISTICS\ 


«LONG , 
ADDRESS P 
ty \CREATE\ 


-LONG 6 
ADDRESS P.ABA 

ASCII \SHARE\ 
-BLKB 3 


SS P.ABC 
YFAST_LOAD\ 


-LONG 9 
ADDRESS P.ABE 
eASCII \MERGE\ 
-BLKB 3 


«LONG 

ADDRESS P.ABG 
eASCI] \APPEND\ 
-BLKB 2 


«LONG 6 

«ADDRESS P.ABI 
«ASCII \SORT\ 
«LONG 

-ADDRESS P.ABK 
eASCII \TRUNCATE\ 
-LONG § 8 

-ADDRESS P.ABM 
eASCII = \EXITN 
-LONG 4 


ADDRESS P.ABO 
ory \FIXED_ CONTROL\ 


“LO 13 
“ADDRESS, P ABQ 

SCI] \FILL_BUCKETS\ 
"TONG. 12 
ZADDRESS P.ABS 
“ASCII \READ_CHECK\ 


nm 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CCONV. SRCICONVDCL. B32. ; 


3 
¢ L VAK=11 CONVERT 15-se -1984 23:38:55 VAX-11 Bliss-32 V4.0-742 P 
8 Main Routine 12-808=1 384 $3:93:23 DISKSVMSMASTER: CCONV.SRCICONVDCL.B32:1> 


00000000" 00290 .ADDRESS P.ABW : 
59 45 48 94 P.ABY: ASCII \KEY\ : 
97 -BLKB 
8 200096 3 Pte: ADDRESS. P.ABY 
53 45 46C 49 46 SF 48 52 4F Kb PACA: ASCII \WORK_FILES\ : 
9000000 aC P.ABZ: .LONG 10 : 
9 009 * 0028 “ADDRESS P.ACA : 
45 55 47 GF 4C 4F B4 P.ACC: ASCII \PROLOGUE\ : 
0000000: BC P-ACB: .LONG : 
00090099" C “ADDRESS P.ACC : 
44 4 0 ca P.ACE: ASCII \PAD\ : 
00000003 002C8 P.ACD: :LONG 3 : 
00000000" 002¢C -ADDRESS P.ACE F 
.PSECT S$OWNS,NOEXE,2 
00# 00000 IN_DESC:.BYTE 02) : 
02 0€ 00002 “BYTE 14, 2 F 
004 00004 ‘BYTE 06) : 
02 O€ OO00A “BYTE 14, 2 : 
00# 0000C “BYTE 0f6) : 
02 0€ 00012 <BYTE 14, 2 : 
00# 00014 “BYTE  Of6)] : 
02 OF OOODIA “BYTE 14, 2 ; 
00# 0001C¢ “BYTE  OC6) : 
02 O€ 00022 “BYTE 14, 2 : 
00# 00024 BYTE OC6) ; 
02 O& O002A "BYTE 14, 2 : 
50⸗ 38 “BYTE  OC6) ; 
02 O€ 00032 "BYTE 14, 2 : 
00# 00034 “BYTE  OL6) ; 
02 OF O003A "BYTE 14, 2 : 
00# 0003¢ “BYTE  OC6) ; 
02 O€ 00042 "BYTE 14, 2 : 
00# 00044 ‘BYTE 06] ; 
02 OE O004A "BYTE 14, 2 : 
0004¢ “BLKB 4 
00# 00050 OUT_DESC: 
.BYTE (3) : 
02 00053 "BYTE 2 : 
00094 "BLKB 4 
00# 00058 FDL_DESC: 
-BYTE (3) : 
02 00058 “BYTE 2 : 
9005¢ “BLKB 4 
00# 00060 EXC_DESC: 
-BYTE £3) : 
02 90065 “BYTE 2 : 
0064 "BLKB 4 
00068 FAO_BUFFER: 
BL 132 
0084 OOOEC FAO_DESC: 
-WORD 132 3 
00 ooott “BYTE 0 ; 


oo 
~~ 
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00000000 00000000 00000000 00000000 


00000010 


00000000' 
000010 


00000000 00000000 


00000000 000186A0 


M F 
e 12:18:50 clet 


OOEF -BYTE 2 
gore «ADDRESS FAO_BUFFER 
OF4 PUT_DESC: 

«WORD 132 

OOF S -BYTE 8 
OF -BYTE 
OOF8 ADDRESS FAO_BUFFER 
QOOFC OPTION BLOCK: 
-LONG 18 

00100 LONG 0(19] 
0014¢ STATS BLOCK: 

e 4, 0, 0, 0, 0 
00160 FLAGS: .LONG 1 
00164 TEMP_DESC: 

. 0C3) 
00167 BYTE @ 
00168 -BLK 4 
0016C TIMER_BLK: : 
00170 ELP_TIME: 3 
00178 CPU_TIME: 

-BL 8 
00180 ELP_TIM_BUF : * 
00190 CPU_TIM_BUF : 16 
001A0 ELP_DESC: A 16 
001A4 eADDRESS ELP_TIM_BUF 


CPU_DESC: 
NG 16 
ADDRESS CPU_TIM_BUF 


FIVE: 
PROC_BLK: 0 
00108 ZERO_Q: “LONG 6° 0 
OO1EO TEMP_TIME: 


-BLKB 8 
QO1E8 MULIO0K:.LONG 100000, 0 


BUFF_10= PROC_BLK+8 
DIRE-10= PROC-BLK+1 
T= PROC“BLK+1 
STATS_DESC_BLOCK= P.AAK 

ERT CONVSPASS_FILE 

-EXTRN CONVSPASS"OPTI 

-EXTRN CONVSCONVERT, 
-EXTRN CLISPRESENT, L 
-EXTRN LIBSSTAT_TIMER 
-EXTRN LIBSPUT_OUTPUT 

-EXTRN OTSSCVT-TOL, 
XTRN CONVS_FATACEXC 


$-32_V4.0-76 p 
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— 


000000006 


DF 


dC 


E0 


9 


nn 
m 


OMmTT WO fom 
AOLOO LO LO 


58 


68 


78 


oO 
~n 


NOD TOD MOMNOM RN YVOM NOVNOM"OOOOO"OON on 2 mal Oro OO 


o 
= 
PVivO SF LOOM OOO POPOCOPOMOCrPOMUOVUMOPF—MOMOCOCOO 


wo 
SMM SLOMAN (“OV Ff SSSA LV LONG LOUMA LH LFF NONOOCCOCO 


o 
= 
= 


1S-sep-19 4 23:38:55 
12-86-1984 $3:79:33 


eEXTRN 
«EXTRN 


»PSECT 


CALLS 


VAX=11 Ol isses 


CONVS_ILL_ VALUE 
SYSSASCTIM, SYSSFAO 


SCODES ,NOWRT 2 


Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 


SYSSASCTIM, R11 
VSPASS FILES 


S5 R10 


K 
INIT_TIMER 


ET VALUE 
N_BLOCK+68 


BVUVMDRD*ZBHABAOVO. OE 
oo 


ET_ VALUE 
N_BLOCK+72 


oo 


IN_DESC 
#5, CONVSPASS_FILES 
8 28 


“1, | 
IN_DESCCIJ 


P 
#i, CLISPRESENT 
RO, OPTION BLOCK+4 


p 
#1, CLISPRESENT 


V4.0-742 
DISKSVMSMASTER: CCONV. SRCICONVDCL .832 


age 
79 


se 
L VAK=11 CONVERT 15-Se 4 VAX-11 BLliss-32 V4.0-742 P 17 
Rees) Main Routine 14- —* 3 3: if: 3 DISKSVMSMASTER: CCONV.SRCJCONVDCL. ——— (4) 
AO AG s po (8 VL RO, _OPTION_BLOCK+8 ; 
008¢ F 000C PUSHAB P.ABD + 0700 
65 re CALLS ai. CLISPRESENT : 
AG AG 0 3 iy) MOVL OPTION -BLOCK+12 3 
009¢ — F 0000 PUSHAB » F + 0701 
| 65 FB 0B CALL ri, CLISPRESENT : 
| AB OG 0 p 0g MOVL OPTION _BLOCK+16 : 
| OOAC 6 F OO0E PUSHAB 4 + 0702 
65 FB Oe¢ CALLS #i, CLISP RESENT : 
AC AG 0 p E VL RO; OPTION _BLOCK+20 : 
| 0088 66 9F ODED PUSHAB ; 0703 
| 65 1 Fe 0 Fi CALLS se tLISPRESENT 3 
BO A 0 p F4 VL igOPTION “BLOCK +24 : 
00c8 6 OF 0 F8 PUSHAB Bok + 0704 
65 1 FB OFC CALLS #i, ELISPRESENT : 
ce 0 p OOFF MOVL RO, _OPTION_BLOCK+44 : 
0004 66 OOF 0103 PUSHAB P. ABN + 0705 
65 1 FB 919 CALLS , CLISPRESENT ; 
(8 AG 0 p 10A VL ; OPTION, BLOCK+48 : 
OOEC C6 9F 001 PUSHAB Poh : 0706 
6§ 1 FB 011 CALLS #i, CLISPRESENT : 
CC AG 0 D 61 VL —_ RO, OPTION _BLOCK+52 ; 
0100 C6 9F 00119 PUSHAB P. : 0707 
65 01 FB 0011D CALLS * CLISPRESENT ; 
DO Ab 50 pO 00120 MOVL RO: PTION_BLOCK+56 : 
0116 (C6 9F 00124 PUSHAB P.AB : 0708 
65 gi FB 00128 CALLS #1, CLISPRESENT : 
D4 A 0 D 901 B MOVL RO. OPTION “BLOCK +60 : 
0128 (C6 9F OO12F PUSHAB P. : 0709 
65 01 FB 01 3 CALLS #i, C (LISP RESENT ; 
D8 AG 20 DO 001 VL. —- RO. - OPTION_BLOCK+64 : 
4 DD 0013A PUSHL : 0713 
0134 (C6 9F 0013¢ PUSHAB P , ABX ; 
67 02 FB 9140 CALLS , CLISGET_VALUE ; 
16 50 £9 0014 BLBC : 
4010 BF 6B 00146 PUSHR —8* : 0719 
69 02 FB OO14A CALLS adi. TILL : 
08 E8 00140 BLBS ; 
000000006 &F BO 9130 MOVL a ae RO : 0721 
BB AG 6E DO HE 5$: MOVL IVALUE. OPTION_BLOCK+32 + 0723 
54 DD o15¢ é$: PUSHL : 0728 
0148 C6 9F 001 PUSHAB PAB ; 
67 08 FB 016 CALLS a. CL 1SGET_ VALUE : 
le f 016 BLBC : 
04 AE SF 00168 PUSHAB VALUE : 0736 
54 0D 00168 PUSHL R F 
69 02 F 0160 CALLS » OTSSCVT_TI_L ; 
1F E9 001 BLBC R : 
B4 4 04 AE DO 0017 MOVL VALUE, OPTION _BLOCK+28 > 0740 
4 11 0017 BRB : 0736 
BS AG 2 00 OO17A 7S: MOVL #2. OPTION_BLOCK+28 : 0746 
4 DD OO17E 8$: PUSHL 4 : 0750 
F 001 PUSHAB P.A : 
67 FB 1 CALLS #3, “ChISGET. VALUE ; 
14 . 187 BLBC ; 
08 AE SF 001 PUSHAB VALUE : 0758 


95x — — —— — — —— ———— — —— 


— — - — ~ — — — 


| 4 
¢ L VAK=11 CONVERT bese =1986 23:38:55 VAX=-11 Bliss-32 v4.0-742 Pp 18 
8 Main Routine 1278 08=1 3b $3:3§ 33 DISKSVMSMASTER:CCONV.SRCICONVDCL.B32:1> (4) 
| 4 DD 0018D PUSHL R4 ; 
| 9 FB 18F CALLS #2, OTSSCVT_TI_L : 
| “ £9 001 : 98: BLBC ; 
| 98 A 1 00 19 MOVL #19, OPTION_BLOCK : 0765 
E46 AG 08 AE OD 199 MOVL IVALUE, OPTION_BLOCK+76 : 17 
54 po 19 10$:  PUSHL R4 : 0773 
0164 F OO1A PUSHAB P.ACD : 
67 F 1A4 CALLS #2, CLISGET_VALUE : 
BC AG DO 001A7 OVL RO. OPTION_BLOCK+36 : 
9 E9 O01AB BLBC ~=—-s«aRO,._:«18$ : 
Q 04 Ab bo O1A MOVL  TEMP_DESC+4, PAD_C t 0779 
| 60 O18 CMPB =s-s« (PAD), #3? : 0789 
4F 12 0018 BNEQ 15 : 
64 0 A2 00187 SUBW2 #2, TEMP_DESC : 0799 
04 A § 1BA ADDL2 #2. TEMP"DESC+4 + 0800 
50 01 AO GA 18E MOVZBL 1(PAD —* RO + 0804 
44 BF 50 91 O01C CMPB ORO, «#6 + 0806 
0A 12 0106 BNEQ 118 : 
OC AE OF OO0IC PUSHAB IVALUE ; 
54 DD 001¢B PUSHL R4 ; 
69 2 FB O001CD CALLS #2, OTSSCVT_TI_L ; 
A 11 00100 BRB 14 ; 
4F OF 0 91 00102 11$: CMPBSséRO,, #79 + 0808 
O& 12 00106 BNEQ : 
OC AE OF 00108 PUSHAB IVALUE F 
54 DD 00108 PUSHL ; 
000000006 00 02 FB 0010D CALLS #2, OTSSCVT_TO_L ; 
16 11 OO1E4 BRB 4 ; 
58 8f 50 91 OO1E6 128: CMPB R9 #88 + 0810 
OE 12 OO1EA BNEQ 138 : 
OC AE OF OOTEC PUSHAB IVALUE ; 
54 OD OO1EF PUSHL : 
000000006 00 FB OO1F1 CALLS #2, OTSSCVT_TZ_L : 
11 001F8 BRB 14§ ; 
D4 OO1FA 138: CLRL = STATUS > 0812 
oc 0 €9 OOIFC 14$:  BLBC STATUS, 16$ : 0817 
CO AG Oc AE DO OO1FF MOVL -IVALUE, OPTION_BLOCK+40 + 0821 
11 11 00204 BRB 18$ : 0817 
01 64 B1 00206 158: CMPW TEMP_DESC, rT : 0829 
08 18 00209 BLEQU 17$ : 
50 200000006 8F i i 16$: MOVL #CONVS_ILL_VALUE, RO > 0831 
CO AG 60 9A 00213 178:  MOVZBL (PAD_C), OPTION _BLOCK+40 > 0833 
FC AG OF 00217 18$:  PUSHAB FLAGS : 0840 
98 Aad OF OOZTA PUSHAB OPTION BLOCK ; 
000000006 00 02 FB 0210 CALLS #2, CONVSPASS_OPTIONS : 
01 0224 BLBS STATUS, 19$ ; 
4 00207 RET : 
FC AG 9F 00228 198 PUSHAB > 0844 
E8 Ad OF 00228 PUSHAB STATS BLO : 
000000006 99 F CALLS #2, CONVSCONVERT 3 
D VL. —s- RO. STAT : 
o¢ £8 00 BLBS STATUS, 21$ : 
6v0000006  &F D1 0 CMPL TATUS, #CONVS_FATALEXC > 0849 
03 13 0024 BEQL 1$ ; 
00g} 31 00244 208: BRw 3$ : 
FA 2 €9 00247 21$:  BLBC STATISTICS, 208 > 0855 


— — — — — 


oes 


4 
VAK="1 CONVERT 15-sep-1984 23:19:55 VAX-11 BLliss-32 V4.0- 
Main Routine 14-Sep-19 :13:50 DISKSVMSMASTER:CCONV. 
8 AG OF 4A PUSHAB TIMER_BLK 
C AG OF 4 PUSHAB ELP_TIME 
6 AG OOF PUSHAB ONE 
os 03 FB CALLS #3, LIBSSTAT_TIMER 
8 AQ OF — PUSHAB TIMER BLK 
§ AG OOF PUSHAB TEMP_TIME 
56 AG OOF t PUSHAB TWO 
68 03 FB F CALLS #3, LIBSSTAT_TIMER 
08 Aa OF 8 PUSHAB TIMER BLK 
§ AG OF 6 PUSHAB BUFF_TO 
4 Ad OF 00268 PUSHAB THREE 
68 03 FB 9 48 CALLS #3, LIBSSTAT_TIMER 
08 AG OOF 6 PUSHAB TIMER BLK 
of AG 9F 00271 PUSHAB DIRE_TO 
AG 9F 00274 PUSHAB FOUR 
68 03 FB 00277 CALLS #3, LIBSSTAT_TIMER 
8 Ad OF OOO7A PUSHAB TIMER BLK 
0 Ad 9F 00270 PUSHAB PG FACT 
SC 44 9F 00 30 PUSHAB eve 
oe 03 FB 0028 CALLS #3, LIBSSTAT_TIMER 
OC AG 7% «Ab OC As C3 00286 SUBL3 ELP_TIME, ZERO_Q, ELP_TIME 
50 8 AS 00 00280 MOVL ZERD_Q+4, RO 
50 1 Ad D9 00291 SBwC 8Os«éELP_TIME+4, RO 
10 A 0 00 00295 MOVL RO, ELP_TIME+4 
E 04 00299 CLRL 3s = (§P) 
9 AG 9F 00298 PUSHAB ELP_TIME 
C Ad OF 0029E PUSHAB ELP DESC 
7E D4 O02A1 CLRL = = (SP) 
6B 04 FB 002A3 CALLS #4, SYSSASCTIM 
16 Ad 9F 0026 PUSHAB CPU_TIME 
0086 C4& 9F 002A9 PUSHAB MULTOOK 
7C AG OF OOZAD PUSHAB TEMP TIME 
0000v CF 03 FB 00280 CALL #3, MuLa 
16 Ab an & 146 A& C3 00285 SUBL3 CPU_TIME, ZERO_Q, CPU_TIME 
50 78 Aa DO O02BC MOV. ZERO_Q+4, RO 
50 18 44 D9 .02C0 SBwC CPU_TIME+4, RO 
18 A 50 DO 002C4 MOVL RO, CPU_TIME+4 
7E D4 002C8 CLRL ss = (SP) 
16 Ad OF OO2CA PUSHAB CPU_TIME 
4 AG OF CD PUSHAB (CPU~DESC 
7E D4 00200 CLRL Os =(S 
68 04 FB 00 be CALLS #4, SYSSASCTIM 
D4 0020 CLAL 
60 A442 DD 9 D7 228: PUSHL PROC _BLK(I) 
cs Ads pp DB PUSHL STATS BLOCKLI] 
8 AG 9F OO02DF PUSHAB FAO DESC 
1¢ «AE 9F 00 Ee PUSHAB LENGTH 
E4 A642 DD ODE PUSHL STATS_DESC_BLOCKLI) 
000000006 00 0 4 02E9 CALLS #5, SYSSFAO 
90 A 10 AE 8 0 FO MOVW LENGTH, PUT_DESC 
90 Ad OF OOF PUSHAB PUT_DESC 
000000006 99 01 Fe 02F8 CALLS #1, ~LIBSPUT_OUTPUT 
D4 2 04 £3 OOFF AOBLEQ #4. I, 22$ 
44 Ad 9F 00 03 PUSHAB CPU_DESC 
zt AG OF «00 PUSHAB ELP DESC 
BB Ad 9F 00309 PUSHAB FAO™DESC 
1¢ =AE OF 0030C PUSHAB LENGTH 


74 


2 
: (CONV. SRCICONVDCL .B32 


Pose 19 


(4) 
0866 


0867 


0868 


0869 


0870 


0874 


0881 


0888 


0892 


Ea, a ny 
| deereegg⸗ 90 
000000006 98 


; Routine Size: 812 bytes, Routine Base: 


1S-seo-t96e 25:38:58 


VAX=11 Bliss-32 V4.0-742 P 
DISKSVMSMASTER:CCONV. SRCJCONVDCL.B32;1> 9 


FB 46 DD O030F PUSH STATS Dest BLOCK+20 ; 
FB 1 CALLS 85, SVs FAO : 
10 AE : 1 MOVW LENGTH, PUT_DESC : 0925 
90 As OF IE PUSHAB PUT_DESC 3 0927 
FB CALLS #1, LIBS$PUT_OUTPUT : 
D 8 8 233: MOVL STATUS, R ; 0931 
04 00328 RET + 0933 


SCODES + 0000 


cs - — — —e, — — —— — —— — — 


F 4 
¢ L VAK=11 CONVERT 15-Sep-1984 23:38: VAX-11 Bliss-32 V4.0-742 Pa 1 
— 006 MULQ 12-88-1980 93:78:33 DISKSVMSMASTER:CCONV.SRCICONVDCL.B32:1> (3) 
is 1 ZSBTTL ‘MULQ’ 

3 935 1 ROUTINE MULOQ ( —X REF VECTOR LONG 

s 1 MUL2 : REF VECTOR ,LONG 

: 9 ; PROD : REF VECTOR ~LONG ) : NOVALUE = 

: 9 § 1! 
is S as 

3 oh : } Functional Description: 

r 5 14 Multiplies two quadwords. This routine was converted from the example 

5 ¢ Ree : of the EMUL instruction in the VAX Architecture Handbook 

: 946 1 | Calling Sequence: 

: 328 oF i wh se 

; 558 948 1! MULQ( mull,mul2,prod ) 

; 559 0949 1! 

; 560 0950 1 ! Input Parameters: 

3 636) 8 1! 

; 206 952 1! mul} - quadword multiplier 

s + 0955 1! mul2 - quadword multiplier 

; 5646 0954 1! 

; 565 0955 1! Implicit Inputs: 

; 566 0956 1! none 

; 567 0957 1! 

; 568 0958 1 ! Output Parameters: 

3 44 0959 1! 

; 3 —8* prod ~ quadword product (note: output cannot be same as either input) 

5 276 0962 1! Implicit Outputs: 

3; So 0965 1! none 

; 5746 0964 1! 

; 575 0965 1 ! Routine Value: 

; 576 2966 1! none 

3 ee 0967 1! 

3 78 0968 1 ! Routines Called: 

: 579 0969 1! none 

; 580 0970 1! 

; 581 0971 1°! Side Effects: 

; 286 9484 1! none 

5 3 09753 1! 

: 586 0974 1 — 

; 585 0975 1 

3 Hy 097: BEGIN 

s 58 97 

; 588 978 BUILTIN 

; 589 979 EMUL; 

; 590 980 

: 4 981 BIND 

3 8 X MUL2S = MUL2 [C 0 J : SIGNED; 

: 594 9 

s 595 985 LOCAL 

3 298 9 ZERO : INITIAL( OD), 

; 59 9 TEMP; 

; 598 988 

: 99 989 ' Multiply low half 

; 600 0990 ‘ 


eee 
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4 
VAK=11 CONVERT 18. e 
14-Se 


EMUL( .MUL1,.MUL2,ZERO,.PROD ); 


MULOQ 
J 
3 G08 99 : High half = AChigh} * BLlow] + AClow] * BChigh) 
3 605 5 TemP = ( MULT C1] © m2 002) + ¢ mui CO) * .mu201)); 
3 60 337 : If AClow]<0 then compensate of unsigned bias of 2**32 
: £08 iF .MUL1S LSS 0 
; 610 HEN 
; 11 1 TEMP = .TEMP + .MUL2 C 0 2; 
3 ei8 : g If BLlLow]<O then compensate of unsigned bias of 2**32 
: 615 1005 if .MUL2S LSS 0 
3 616 1 THEN 
: 61 1007 TEMP = .TEMP + .MUL1 C 0 2; 
; ei9 3 Combine with high half of ALlow] * BLlow] 
: 621 1011 PROD C 1 J] = .PROD £1) + . TEMP; 
; 6 ¢ 3R8 
; 6 101 RETURN 
; 626 1014 
3 625 1015 1 END; 
001C 00000 MULQ: .WORD Save R2,R3,R4 
53 AC DO 00002 MOVL MULT, R3 
52 08 aC 00 00006 MOVL MUL2, R2 
51 D4 OOOOA CLRL ZERO 
50 oc AC 00 0000¢ MOVL PROD, RO 
60 51 6¢ 63 7A 00010 EMUL (R3). (R2), ZERO, (RO) 
54 06 =A 62 C3 00015 MULL 3 (R2), 4(R35, RO 
51 63 04 A2 C5 OOO1A MULL3 4(R25, (R3). RI 
51 54 CO OOO1F ADDL2 R4, TEMP 
63 05 00022 TSTL (r$) 
03 18 00024 GEQ 1$ 
51 . C9 0026 ADDL2 (RQ), TEMP 
62 D5 00029 18: TSTL (R2) 
0 18 900 B BGEG 28 
51 : CO 0002D ADDL (R3), TEMP 
04 AO 1 €0 00030 28 ADDL2 TEMP. 4(RO) 
04 000 RET 


3; Routine Size: 53 bytes, Routine Base: S$ CODES + 032C 


626 19t¢ 1 
62 1017 0 END ELUDOM 
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VAK=11 CONVERT 
MULQ 


PSECT SUMMARY 
Name Bytes 
SOWNS 49 VEC, WRT, 
SPLITS 720 NOVEC ,NOWRT, 
SCODES 865 NOVEC,NOWRT, 
Library Statistics 
File Total 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 


-------- Symbols -------- 


Loaded 


4 
— 4 
o=8Sb= 198s 13:78:83 
Attributes 
RD ,NOEXE,NOSHR, LCL, REL, 
RD +NOEXE. NOSHR, LCL, REL, 
EXE -NOSHR, LCL, REL, 
Pages 
Percent Mapped 
0 1000 


11 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CONVDCL/OBJ=OBJ$:CONVDCL MSRC$:CONVDCL/UPDATE=(ENH$: CONVDCL) 


; Size: 865 code + 1216 data bytes 
Run Time rye 
Elapsed Time: 01:18.0 


Lines/CPU Min: 272 

,onense Pyare: 2492 
nam Used: 268 pages 

Compilation Complete 


X-11 
Dk SVMGMAS 


Processing 
Time 


00:01.8 


Sea ctou. SRE ICONVOCL.032;1°" 3} 
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